EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


] 
! 
 **F ILE*#1D®*RTLODBG | 


RRRRRRRR =o TTTTTTTTTT LL 000000 DDDDDDDD —«- BBBBBBBB GGGGGGGG 

RRRRRRRR_——s-TTTTTTTTTT «LL 000000  DDDDDDDD = BBBBBBBB GGGGGGGG 

RR RR TT LL 00 00 DD DD BB BB 

RR RR TT LL 00 00 DD DD BB BB GG 

RR RR TT LL 00 00 DD DD BB BB GG 

RR RR tT LL 00 00 DD DD BB BB GG 

RRRRRRRR TT LL 00 00 DD DD BBBBBBBB GG 

RRRRRRRR TT LL 00 00 DD DD BBBBBBBB GG 

RR RR TT LL 00 00 DD DD BB BB GG GGGGGG 

RR RR TT LL 00 00 DD DD BB BB GG GGGGGG 

RR RR TT LL 00 00 DD DD BB BB GG GG cent? 

RR RR TT LL 00 00 DD DD BB BB GG GG a 

RR RR TT LLLLLLLLLL 000000 DDDDDDDD = BBBBBBBB GGGGGG ans 

RR RR TT LLLLLLLLLL 000000  DDDDDDDD =‘ BRBBBBBB GGGGGG joe 

RRRRRRRR = EEEEEEEEEE  — gqaaaaa 

RRRRRRRR_—- EEEEEEEEEE _—_—gaaaaa 

RR RR EE aq a0 ‘ 

RR RR EE a0 a0 

RR RR EE a0 QQ 

RR RR EE a0 a0 

RRRRRRRR = EEEEEEEE = Q)0 a0 

RRRRRRRR = EEEEEEEE §=— Q aa 

RR RR EE QQ aa ad 

RR RR EE QQ aa ad 

RR RR EE aa 0s aa 

RR RR EE aa aa 

RR RR EEEEEEEEEE  gaad a0 | 

RR RR EEEEEEEEEE  Q000 wu | 
| 
| 
| 
| 
| 


a 


rr eee —— eee ee 
| 
j 


| F 4 
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P 
t This file, RTLODBG.REQ, defines macros that were used to 
F debug the RTL before the DEBUG program was available. 
i 
MEIIITITIIIITITIIIITI IIIT iiiiitiiiiiiiiiiitiiiiiiiiiiiiiit titi 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


® 
® 
* 
® 
4 ® 
ie hat SOFTWARE IS ute UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pecteee AND WITH THE * 
:* INCLUSION OF THE ABOVE posure NOTICE. THIS SOFTWARE OR : 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT ce CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPOR ATION. * 
® 
® 
we 
® 
*® 
® 


i 
i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOOO AERA R ERA ERE AREER AERA AAA EAE 
! 


Author: T. Hast 


0-19 = made ans MeRR STATUS a null macro eal rr 
0-21 = Change name fo RTLODBG.REQ. JBS 14-NOV-78 

= Change version number and add copyright notice. JBS 16-NOV-78 
1- - Remove the PRINT statement, for the new BLISS compiler. 


i 
i 
i 1-001 
i 1-00 
Bi JBS 02-OCT-1979 


'¢ 
Declare EXTERNALS used 
1 Ae ZDECLARED(TSTSSPRINT_PAR) 


jexTenne ROUTINE . 
: TSTSSPRINT_PAR; ! routine to print pairs of args 


ere uot ZDECLARED(TST$SPRINT_DEC) 
{Ex TER NA ROUTINE : : = 7 
: TSTSSPRINT_DEC; ! routine to print pairs of args in decimal 


'e 
! Macro to define string descriptor 


oo 


n” 
anal 


Ee EEE EEE EEE EE TTT TT TT SS 


rs 
1 

| RTLODBG.REQ;1 16-SEP-1984 16:51:38.80 Page 2 
lie 


| wee DESCRIPTOR (STRIN NG) 
UPLIT(CZCHARCOUNT(STRING), UPLIT(STRING))%; 


“macro 
PAIR (v1, V2) 
i = DESCRIPTOR(XSTRING(V1)), V2%; 
MACRO  INPUT_FORMALS [] = %, 
ImPL ICT INPUTS [J = %, 
FUNCT ION- VALUE f = %, 
OUTPUT _FORMALS () = % 
IMPLICIT aourPut i «6, 
PRINT STRING () = ‘, 
RMS “ERR STATUS c =, 


ate tote: {] = 


PRINT _HEX ae 
PRINT DEC 


'¢ 
Macro to print RMS error status 


‘MACRO RMS ERR. STATUS (RMS CALL) C J 
' = TSTSSPRINT PAR C BESCRIPTOR(XSTRING(: RMS error status from ', RMS_CALL)) 
iF NOT TNOLL CEREMAING WG) XTHEN , PAIR (XREMAINING) %FI 


'¢ 


! Iterative macro to set up call to TSTS$PRINT_DEC for 
i | Beene ang decimal numbers after text in pairs. 


!MACRO PRINT DEC (ROUTINE_NAME) () 
: = TSTSSPRINT DEC ( ~pest RIPTOR(ZSTRING('? FORTRAN ERROR = °, ROUTINE_NAME, 
3 Y NOT ZNOLL(ZREMAINING) ZTHEN , PAIR (ZREMAINING) FL 


'¢ 
i Iterative macro to set up call to TST$$PRINT_DEC for 
a printing hex numbers after text in pairs. 


‘MACRO PRINT HEX (ROUTIN NE. NAME ) 
TSTSSPRINT PAR (~DESCR 
i tir NOT ZNOLL(ZREMAINI 


So Dag FORTRAN ERROR = °, ROUTINE_NAME, 


C) 
IPTOR( 
NG) ZTHEN , PAIR (ZREMAINING) FL 


: End of file RTLODBG.REQ 


sae —_ : serittiiadlil 
| 
| 
| 
* called ')) 


" called ')) 


n” 
= 


me ee ee ee EE EEE EEE ESE EES EE EEE EEE EEE TE CT TT TTS 


PMENT CORPORATION | 
AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


02¢ 


